home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / amigae.june.archive / 000130_crash!kirk.safb.af.mil!BWILLS_Tue, 22 Jun 93 21:54:46 PST.msg < prev    next >
Text File  |  1993-08-31  |  6KB  |  99 lines

  1. Received: by bkhouse.cts.com (V1.16/Amiga)
  2.     id AA00000; Tue, 22 Jun 93 21:54:46 PST
  3. Received: from kirk.safb.af.mil by crash.cts.com with smtp
  4.     (Smail3.1.28.1 #15) id m0o8LgZ-0000AhC; Tue, 22 Jun 93 20:39 PDT
  5. Message-Id: <m0o8LgZ-0000AhC@crash.cts.com>
  6. Date: 22 Jun 93 22:37:00 CST
  7. From: "Barry D. Wills" <BWILLS@kirk.safb.af.mil>
  8. To: "amigae" <amigae@bkhouse.cts.com>
  9. Subject: sysdate.e (OS1.3+)
  10.  
  11. I did some leg work for Vinny "The Vinster".  I think it turned out somewhat
  12. interesting (and possibly useful.)  So here it is, system date modules.  They
  13. can actually do some limited date calculations :)  It's only about 4K.  Have
  14. fun!  -- Barry
  15. ------------------------------------------------------------------------------
  16. Hi again, Vinny.  I sent that last archive to you as quickly as possible so
  17. you could check it out.  Then I spent another hour on it because I thought
  18. you might appreciate a slicker interface. :)  Alas, I found an error in the
  19. algorithm, so here is the fix (but it's also easier to use! :)  Have fun.
  20. -- Barry
  21.  
  22. begin 644 RAM:sysdate.lha
  23. M+EHM;&@U+9\%``#8&0``>I_6&@``&%-Y<T1A=&5<15!0/6YO7'-Y<T1A=&4N@
  24. M98+;!$QKM[6FW_N.^@'VX0W,!(PD+9-9DBP"V1`.HA;E59%5^#_`<3;8F_N5?
  25. M'3E[W_M@`$&2Z6Q7:U++*[@9:Y*\'<#<#=!^Y.Z&-T$[H`VW0Q.X>NK;:=]:Y
  26. M:K>6S7"<W!%LC_9RVSL!;:NU]X`B;]+C[B`78!R(+QG73M@:-$#QD.%]L5$-K
  27. MC96)1\<#K<0&#HC=<,^#9D'H@%W`>(X&A.!S1.'B0"(`PGAYX(7B9]Z-T63`A
  28. M_$'J<1@2S&O#Q5^"Z3Z4RJPLF[BPG6`,1S0SQ;6):O;K*1UEEJU>P2:]`^C!C
  29. MZ?">^X*EB#?"WPV9X`,-%]H.=*Z",!D`E*")!H41!`^E[``8V+;,\</0S2Y0Y
  30. MW@JW+E7S@U8"RU;\26=QHA<?OATF=C/$`R2IGQ405^*B"WDN-<":?163FP^</
  31. MGTN4`,!<KW?+<M@O:@;5TIX;;`Q=M,9E95=5@URSO;X>@`9&6Z=(>%3:'ANC<
  32. M]F:1<-RE/6#L_,]\5"DS3'AM[8\.\/"GM;@\*>YRK=4_AM<I.N=Q&?C-#BG33
  33. M(#*D"P?FA[$&DI!M&AO8-?>IJ[U7#"X[K[VW*N];:W)(=C?/K[M27NN]:WWI<
  34. M'O'?CB1K[_?5W^,^%!WN8\.M"W5(35Y$'K0&9*>VX.GL83,E/JQ[TB"(U2``*
  35. MLD,TH!<X3DKUB&!X%\A'1%+Y+MP+K4Q-"""1'Q)G/!X?IP^TE87?'7MZ`]MJ<
  36. M#;D:5$B]I8A=KP!9@$A"\S0^DAI)9\@[6<;ZS$0RMA1&TJ5:OP`ISV&K@/%`)
  37. M-(I<992-C\'XO:C=!=XBL,:('*@0UE%L2UL!/356_)5V:NA6SL">M=7UC*V.D
  38. M,YFB[&5!"@))%-^TG#H^KK/"'<.8X,T&:0X-^`<F(_6_`A!WPZ7#9X-78HZ(+
  39. M0&?VN>U\P%#`WF-"X;F='%S'$.<S`<<S98PX3F;-S..N(Q29#R!NB!0.2=<G2
  40. M+'6B>#LER:K?0,GO'?06,<5I*MZP=*R]#V?8,QB5$SX\.V]:;U*LI0983?)0^
  41. M:U_>&Q@*MNM)<X/K"EE#[-*XM*7-NJ6Z`:H)9'^S++&HZNFWN>[)FV_C<[3G/
  42. ME4%=KG&"HI+TU199G\4H<AV`B^8@7+;2X^5\(H'V"W(:=VMPZ(X1W)(P'4`D\
  43. M69>@>PQH$&&K>^&$T(CV0+BRQP/@71OO0-N<[AV\NQE05I6;Q9II]LQ/G]5OH
  44. M++WZXQ2`7\`&"N6*MGCKI`I(]E]`O!N[FK('@WPIU-P0C#A+4G_B'']&XE-FG
  45. MI:EGZ2OETO8G>LQNEYED9&@/R>)#W][U9^J7-O\;"?;?8F5GI'0!<:1CRU2L`
  46. MRJF]?Y,NI[F7;K<-A/QR9\DFLFG>?U.UA:5?QZ<YE7'@>)JY\"=\Z.".&$<)3
  47. M:24?EGM%F^3K,RG3T_`G3\),/HR&5'SO]Y)V!\QE[#*7WF-$?X&AO98?[83%L
  48. M,\S7#6`OOQDX@7;31R5Q8PR,[O>[ZL8;KJH13Z(;9X7.D<0?.63<<8D2?/3D+
  49. MU78V)*'94-"Q&0D\L*6G9:\!],%BCFR@I8F>2-_'>25MCZ/D1-],:]$Q',J]J
  50. M*8_HU$/S(DGIEJ`IT3`,TW[5ZM="A0`+1ASAA0_?\3-2^7B9:\OD5Z+F37%5E
  51. MY9'4)7*JL8XDNEZ^,G9ET9?.)`#[(7$''./.Y']C8V`X,K2WIS&E!+4IQ9-4U
  52. MQ:BRKUR-X_8%Y&Z,[-M`TV2GZKD=;B\4)[\$.9R\C>RG^>UMI]>[+V]'B"9JM
  53. MA:47J\?',E=<-U7<.`1YO"3"]DAXHAGAIA_5Y<';"GYPK[J!:00&3XFTARPH'
  54. M?P"!0(K,K2(#\T!*PR[M)9;5?U/:TM)L@>[_QO!J"=_0#=<HTZ7^RE4VO^E+?
  55. M_P\5*G^2GHQ4/P/T/VQ6=F*BWF:7W8K*?=BL[L5G=BL_G%9N??*9&U_N5Y?\.
  56. MFY8P32UL:#4M@@$``/\+```$H-8:```:4WES1&%T95Q%4%`]>65S7&1A=&5T&
  57. M97-T+F6V(`$H6Y>MI?[GO@#_CN--C*$20)#@88S(P#$8,>$D986@9AK278X-Y
  58. MXY6YFCA-`2+%BO*\+'@>)\%WI?!A\"7P`5\&#:+K&U&]=?=Y;EL!E1$XKL8KA
  59. M\V#%)$Z2,PQ"O\C]H(20'!BD(`=MO!BT)28\:T`+`1%Y^C1F@(=?O@DSF$I&M
  60. M5B9#1VITAB=5I"$XRVVV`8#11S,\"JRJ8`W[<9<6\.9,$9G@8'A.RRR%J=I6F
  61. M!TJ$'!E,''*,Y4`((E?<@82@C&$AB)5Y4QM*5)N3CRFI*:Z\!:CM<7$DV1"=/
  62. M+EPE<EZ[VVME:<M6H\*#QY7DHAU:A4(J@H_CN]J5M#?#FSY2'T0F3!BZ@\L0=
  63. MM!0'Y@'>)"9Y"08\`IZA7QT"H@@(&8Q,\NS/O`_L@@Z8(KDS27`_L`06+(;]/
  64. M>O4$+7O[+E4-(JX/;/IO!KA.^H#>PHU:GZ4JV]_%+_AXK5OPIZJ5!T';^*5GX
  65. M=2HO:6EY4K*NZE9NI6;J5GS2LX/,IKFU^RO;O.K_>H(0+[,M;&@U+8`$``"<_
  66. M#0``!*#6&@``&5-Y<T1A=&5<15!0/7EE<UQS>7-$871E+F5-T0.=:]NQIMS'0
  67. MYW^`?;XJW<!8PDDDFLR10#610;B(:I5515<#X!B;;$^YRH_.7O=S8`!1DFEMO
  68. M62M2RRN^+7);>'75MM.^CS@X[>M<X`A[WOQ/I!EH'T!@-!`=X#2ICA,E\OMFG
  69. MJ!Y_0PP*CZXX'D`8,DL#YH@>,D]0`O8SH.!I#@<R'SH2"8PRGDPQR0DS\$L`.
  70. MLF.)`?!].-3,=]75:L7B?2V59%DWLV4[`!F.:2D+:S,6G+*T=AABS:MDFPQQZ
  71. M)Q^_U'Q/BI9@Z`<Z>ND`##1?:/"I=!.,R04E`A)I$H".)3V``SL5PT)P]S=7B
  72. MN#G"O=NU_:#ML.MUS]E,[M3(_%B#O-!*=`#)*V>BH"_Q408[+KMA5/D=9S9?X
  73. M:3Z9*`&@NVKW[W7`9N1O+Z5(.%H8NX&M2LNNK`;Y9Y^@/<`-C+=:J/#CX!X<!
  74. MP_9NJ7#BJTF`\OS?**A5;K#PX>$>'(/"MP<0\*W%W,?&?PX.XG7YNHT4II,WF
  75. MFH0&UH%L]^3R0:JT&X:3!CW]ZLOO5\LC\&_O<,Z[X-KBFAV6(^_N\<_=@\%OP
  76. MDF>\N*5"=_?Y5]_M/E2>&^>3>A<RT)W`F/Q0&YJ>N1]_DPFYJ?63X)D$1JD`3
  77. M!A09IP"ZPG*7K<D<(,Z".B*7LO70O.T$T(()$?$F=((1^G3\R5A>]=IS8'MY!
  78. M8;=#2J$7M3$+M>D.N,2$,T-#\R&DIGS#M;SOK41#2V%D;4I6;5@%N>V[="$HI
  79. M!JE+C;:AL?T_&;DL`,PD5AK9`Y4"&LHMB>M@*Z:ZWZ*NE7377,K96Q/4ROZR6
  80. ME;#.<O9=?2@A3$D:V]<5ASB7UH1#L%\X-TVZHX-K`Y,!^N*-*3Q!WOFUP8RU1
  81. M4V`$&?G<-S_P$C`WL-(^:_`.+B5`YR\9QS-%C"D.9XU]^!].:;(<0-DQK!P3C
  82. MKFY9ZST@@FN17>R#)\)XDEC&%:4K>(.5Y>1[/R&6U.B:\=_TO4J]*[*4VVE7Q
  83. MQ6&IGZAK:"NY9FN<'ZA5TA\HE<6E/FV7+=,-T$MC_T++6XZFVWNH-)GGOO<WT
  84. M;GC6%9W",$HFO17%EFBS3AQ'7^+X0#);9WXBO>B.)HMQVW=G=.F60=R"<9U@D
  85. M(%F8(X<LJ1!?NWNAE-((]4BXM,<#X%DL4,;S^%\[VG8NL*L[-ZM4T_.8HC_!!
  86. MS3+W_8PR`5]@%BN6Z_7VVE`3F>S.P78W<U5D#T]`5N/B$(HX25I_]AP_UN*31
  87. M:*6J9^TKQ=+Y)WB8S:\RR+C0'\/$A[?5ZM_I/FU^]A/XOL3*UTCI@R-(QY;I8
  88. M6;73>U^&7Q_RRW+/3;5\=&?%1K*)WI?%VM,3K^?3C0JY\#I-77GLQ'38EDD'^
  89. M"4HE'^9[!9O9X&95IYBC5I]$F'Y:#*CYWO.H[`^8O#EG+[?,@_V-#@TP_](3:
  90. M%,]CO39`OOVDX@9>51R=Q9PR-\W)RKQAP0+A%7H@O'D?[QQ!X2R;#C$0KST9B
  91. MM5N=B3AV7#0L1L)O+`GIV6N\?2_:J:LH*F)KDCHSWDG;8^CT@F^J-<E!'-*]S
  92. M.8_)N(?J1)O3)6!3)0`S;?L@+BS2+6QH-2US````GP````J@UAH``!93>7-$X
  93. M871E7'-Y<T1A=&4N<F5A9&UE`Q@`>E)VL:<+CO@#^1BR,&AYCL#24;]6FMO8_
  94. M[NHC!?&U0P8-"``!7F2G)T61:%W'ZN`OPP\53N!G:<QLB^Y5T$31!FBBS$;2T
  95. M?5+/T5V#ZD7C!3\5,BS(L/N+N6YQJ)&TR&W;U*A@1C6(<LXY0T7&G_6Z8A<`8
  96. !`%+/A
  97. ``
  98. end
  99. size 3286